Public Class AttributeCleanupSet
    Protected _AttributeName As String
    Protected _CurrentValue As String
    Protected _NewValue As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal AttributeName As String, ByVal CurrentValue As String, ByVal NewValue As String)
        _AttributeName = AttributeName
        _CurrentValue = CurrentValue
        _NewValue = NewValue
    End Sub

    Public Property AttributeName() As String
        Get
            Return _AttributeName
        End Get
        Set(ByVal value As String)
            _AttributeName = value
        End Set
    End Property

    Public Property CurrentValue() As String
        Get
            Return _CurrentValue
        End Get
        Set(ByVal value As String)
            _CurrentValue = value
        End Set
    End Property

    Public Property NewValue() As String
        Get
            Return _NewValue
        End Get
        Set(ByVal value As String)
            _NewValue = value
        End Set
    End Property

End Class
